00100	:DEFINE EDGLOAD $
00200	EDG:LOGIN SYS,HE
00300	:COMP EDGE,MISEDG,CONTRL,SCANER
00400	EDG;R LOADER
00500	EDG;GLBLOW[1,3],$1CONTRL,EDGE /G
00600	SAVE DSK EDGE
00700	
00800	:DEFINE CURLOAD $
00900	CUR:LOGIN SYS,HE
01000	:COMP CURVE,MISCUR
01100	CUR;R LOADER
01200	CUR;GLBLOW[1,3],$1CURVE/G
01300	SAVE DSK CURVE
01400	
01500	:DEFINE NCURLOAD $
01600	NEW:LOGIN SYS,HE
01700	:COMP CURNEW,MISNEW
01800	NEW;R LOADER
01900	NEW;GLBLOW[1,3],$1CURNEW/G
02000	SAVE DSK CURNEW
02100	
02200	:DEFINE CAMLOAD $
02300	CAM:LOGIN SYS,HE
02400	:COMP CAMERA
02500	CAM;R LOADER
02600	CAM;GLBLOW[1,3],$1CAMERA /G
02700	SAVE DSK CAMERA
02800	
02900	:DEFINE DRVLOAD $
03000	DRV:LOGIN SYS,HE
03100	:COMP IIDRV
03200	DRV;R LOADER
03300	DRV;GLBLOW[1,3],$1IIDRV/G
03400	SAVE DSK IIDRV
03500	
03600	:DEFINE SIMLOAD $
03700	SIM:LOG SYS,HE
03800	:COMP SIMPLE,SIMAUX
03900	SIM;R LOADER
04000	SIM;GLBLOW[1,3],$1SIMPLE,SIMAUX/G
04100	SAVE DSK SIMPLE
04200	
04300	:DEFINE COLLOAD $
04400	COL:LOG SYS,HE
04500	:COMP COLOR
04600	COL;R LOADER
04700	COL;GLBLOW[1,3],$1COLOR /G
04800	SAVE DSK COLOR
04900	
05000	:DEFINE ARMLOAD $
05100	HAND:LOG SYS,HE
05200	:COMP HAND
05300	HAND;R LOADER
05400	HAND;GLBLOW[1,3],$1HAND /G
05500	HAND;SAVE DSK HAND
05600	MOVE:LOG SYS,HE
05700	:COMP MOVE
05800	MOVE;R LOADER
05900	MOVE;GLBLOW[1,3],$1MOVE /G
06000	MOVE;SAVE DSK MOVE
06100	
06200	:DEFINE VERLOAD $
06300	VER:LOG SYS,HE
06400	:COMP VERIFY
06500	VER;R LOADER
06600	VER;GLBLOW[1,3],$1VERIFY/G
06700	SAVE DSK VERIFY
06800	
06900	:DEFINE FOCLOAD $
07000	FOC:LOG SYS,HE
07100	:COMP GILFOC
07200	FOC;R LOADER
07300	FOC;GLBLOW[1,3],$1GILFOC/G
07400	SAVE DSK GILFOC
07500	
07600	:DEFINE EYELOAD $1
07700	EYE:LOG SYS,HE
07800	:COMP GILEYE(5000S)
07900	EYE;R LOADER
08000	GLBLOW[1,3],$1GILEYE/G
08100	SAVE GILEYE
08200	
08300	:DEFINE AFDLOAD $1
08400	AFD:LOG SYS,HE
08500	:COMP AFD
08600	AFD;R LOADER
08700	GLBLOW[1,3],$1AFD/G
08800	SAVE AFD
08900	
09000	:DEFINE STKLOAD $1
09100	STK:LOG SYS,HE
09200	:COMP STKDRV(5000S)
09300	STK;R LOADER
09400	GLBLOW[1,3],$1STKDRV/G
09500	SAVE STKDRV
09600	
09700	:DEFINE CALLOAD $1
09800	CAL:LOG SYS,HE
09900	:COMP CALDRV(5000S)
10000	CAL;R LOADER
10100	GLBLOW[1,3],$1CALDRV/G
10200	SAVE CALDRV
10300	
10400	:DEFINE ALLLOAD π
10500	:DRVLOAD π1
10600	:ARMLOAD π1
10700	:EDGLOAD π1
10800	:CAMLOAD π1
10900	:SIMLOAD π1
11000	:COLLOAD π1
11100	:CURLOAD π1
11200	:VERLOAD π1
11300	:AFDLOAD π1
11400	:FOCLOAD π1
11500	:EYELOAD π1
11600	:CALLOAD π1
11700	:STKLOAD π1
11800